0 FORM=1TO26:READD:M$=M$+CHR$(D):NEXTM:CLS:SCREEN3,4:LOCATE12,12,0:BOX(0,0)-(330,200):PRINT"MUSIK & MACHINE":A$=INPUT$(1):VP=VARPTR(M$):AD=256*PEEK(VP+1)+PEEK(VP+2):DATA190,144,0,246,144,2,52,4,182,167,193,136,1,183,167,193,90,38,253,53,4,48,31,38,237,57
2 IFX<1ORY>254THENY=0:X=1:GOTO2ELSEPOKE&H9000,X@256:POKE&H9001,X MOD256:POKE&H9002,Y+1:EXECAD:IFA$="1"THENX=X+1:Y=Y+1:GOTO2ELSEIFA$="3"THENINPENX,Y:GOTO2ELSEIFO=0THENO=1:X=254:Y=254:Y=254:GOTO2ELSEX=X-1:Y=Y-1:GOTO2